Unit UnDmLoginOnderzoeker;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmLoginOnderzoeker = interface(IAppServerSOAP)
    ['{85D0810B-FA5E-46E3-B099-4F70D36BBCB5}']
  end;

  TDmLoginOnderzoeker = class(TSoapDataModule, IDmLoginOnderzoeker, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrOnderzoekerLogin: TADOQuery;
    PrvOnderzoekerLogin: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmLoginOnderzoekerCreateInstance(out obj: TObject);
begin
 obj := TDmLoginOnderzoeker.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmLoginOnderzoeker, TDmLoginOnderzoekerCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmLoginOnderzoeker));
end.
